home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
iqb9109.zip
/
RANDFN.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-09-09
|
373b
|
24 lines
' RANDFN.BAS
' $INCLUDE: RANDFN.BI
FUNCTIION Ran0% (n%)
RANDOMIZE TIMER
Ran0% = n% * RND
END FUNCTION
FUNCTION Ran1% (n%)
RANDOMIZE TIMER
Ran1% = (n% - 1) * RND + 1
END FUNCTION
FUNCTIION Ran0& (n&)
RANDOMIZE TIMER
Ran0& = n& * RND
END FUNCTION
FUNCTION Ran1& (n&)
RANDOMIZE TIMER
Ran1& = (n& - 1) * RND + 1
END FUNCTION